
use strict;
use warnings;
use Carp;

use DBI;

package DBProvidor;

my ($db, $user, $pw) = qw(bbssystem bbssystem bbssystem);


sub connect() {
  DBI->connect("dbi:Pg:dbname=$db",
	       $user,
	       $pw,
	       { RaiseError => 1,
		HandleError => &Carp::confess });
}

1;
